
InstallScript := func ( partFrame )
	begin
	local extnFrame := GetLayout ( "svHdrsExtn" );

	extnFrame:?InstallExtension();
	end;

RemoveScript := func ( removeFrame )
	begin
	try
		local prefV := GetRoot().(k_PrefVRootSym);
		if prefV and prefV.viewCObject then
			begin
			prefV:Close();
			end;
	onexception |evt.ex| do nil;
	RemoveSlot ( GetRoot(), k_PrefVRootSym );

	local tpSymbols := [];
	local gEnRoute := GetGlobalVar ( 'EnRouteCore );
	if gEnRoute then
		begin
		local extendA := gEnRoute.extended;
		if extendA and Length ( extendA ) > 0 then
			begin
			local inIx;
			while ( inIx := LSearch ( extendA, kAppSymbol, 0, '|=|, 'id ) ) do
				begin
				AddArraySlot ( tpSymbols, extendA[inIx].transportSym );
				ArrayRemoveCount ( extendA, inIx, 1 );
				if kDebugOn then print ( "Removed from EnRoute Core" );
				end;
			end;
		end;

	local tpSym;
	foreach tpSym in tpSymbols do
		begin
		if tpSym then
			begin
			local transport := GetRoot().(tpSym);
			if transport and transport.prefExtns then
				begin
				local extnsA := transport.prefExtns;
				local inIx;
				while ( inIx := LSearch ( extnsA, kAppSymbol, 0, '|=|, 'id ) ) do
					begin
					ArrayRemoveCount ( extnsA, inIx, 1 );
					if kDebugOn then print ( "Removed from prefExtns" );
					end;
				if Length ( transport.prefExtns ) = 0 then
					RemoveSlot ( transport, 'prefExtns );
				end;
			end;
		end;
	end;
